Xbasic
SYSTEM_EVENT_DROP Function
Syntax
V SYSTEM_EVENT_DROP(C system_event,C name)
Arguments
- system_event
"database_exit". Character
- name
The name of an event registered by CAN_DATABASE_EXIT()or ON_DATABASE_EXIT(). Character
Description
The SYSTEM_EVENT_DROP() function removes an event registered by CAN_DATABASE_EXIT()or ON_DATABASE_EXIT().
The following script registers events.
code = ui_msg_box("Notice", "The database is about to close - First warning") %code% on_database_exit(code) Code2 = Ui_msg_box("Notice", "The database is now closing - Second warning") %code% on_database_exit(code2)
This code returns the registered events.
dim ptr as P ptr = system_event_data_get() ? ptr.database_exit = +1. +2. ? ptr.database_exit.1 = code = ui_msg_box("Notice", "The database is about to close - First warning") level = "Application" ? ptr.database_exit.2 = code = ui_msg_box("Notice", "The database is now closing - Second warning") level = "Application"
This code drops the second database_exit event.
system_event_drop("database_exit", "2")
See Also